10 DATA160,32,132,251,132,253,160,1,132,252,136,132,250,162,199,134,166,162,39
20 DATA134,167,132,169,177,250,133,168,165,167,240,4,160,8,177,250,10,38,168,42
30 DATA38,168,42,41,3,133,170,160,4,169,0,38,168,42,38,168,42,72,101,170,101
40 DATA169,170,165,170,133,169,104,133,170,189,0,23,6,254,6,254,5,254,133,254
50 DATA136,208,221,145,252,24,198,167,16,40,162,2,181,250,41,7,201,7,240,15,56
60 DATA181,250,233,55,149,250,181,251,233,1,149,251,208,6,246,250,208,2,246,251
70 DATA202,202,240,223,198,166,208,144,96,162,2,181,250,105,8,149,250,144,3,246
80 DATA251,24,202,202,240,241,76,172,23,27,65,8,13,10,27,75,64,1,0,165,197,201
90 DATA64,208,219,76,35,23,160,32,132,251,160,0,132,250,160,25,132,252,160,0
100 DATA185,162,23,32,210,255,200,192,9,208,245,160,40,132,253,160,7,177,250
110 DATA162,7,42,118,166,202,16,250,136,16,243,169,7,170,56,101,250,133,250,144
120 DATA2,230,251,181,166,32,210,255,202,16,248,198,253,208,217,198,252,208,196
130 DATA96,173,58,3,160,0,153,0,4,153,251,4,153,245,5,153,239,6,200,192,251,208
140 DATA239,96,173,59,3,160,0,153,0,216,153,251,216,153,245,217,153,239,218,200
150 DATA192,251,208,239,96,169,8,13,24,208,141,24,208,169,32,13,17,208,141,17
160 DATA208,169,63,133,216,169,0,133,215,168,145,215,160,63,162,32,145,215,136
170 DATA208,251,198,216,202,208,246,169,4,133,232,169,0,133,231,168,173,52,3
180 DATA162,4,145,231,200,208,251,230,232,202,208,246,96
190 CH=INT(154*RND(1))+1:CO=INT(16*RND(1))+0:G=INT(16*RND(1))+0:W=8192:X=8504
200 V=53265:GOSUB600:R=RND(-TI):FE=255
210 S=5900:FORI=STOS+241:READA:POKEI,A:NEXT
220 T=828:FORI=TTOT+45:READA:POKEI,A:NEXT
230 GETC$:IFC$=""THEN230
240 I=ABS(ASC(C$)-132):IFI<5THENONIGOSUB410,410,440,460:GOTO230
250 IFC$=CHR$(13)THENGOSUB340:GOTO230
260 IFC$="A"THENGOSUB580:GOSUB760:GOTO230
270 IFC$="L"THENGOSUB480:GOSUB520:GOTO230
280 IFC$="P"THENGOSUB790:GOTO230
290 IFC$="Q"THENCLOSE4:SYS832
300 IFC$="S"THENGOSUB480:GOSUB490:GOTO230
310 IFC$="V"THENGOSUB580:GOSUB360:GOTO230
320 IFC$="^"THENGOSUB580:GOTO230
330 GOSUB480:GOSUB600:GOTO230
340 GOSUB580:Q$="":Z$="":FORL=1TO10:Z$=RIGHT$(STR$(INT(RND(1)*4)),1)
350 Q$=Q$+Z$:NEXT
360 GOSUB550:Q=4*RND(1)+1:ONQGOTO370,380,390,400
370 Y=FE*RND(1)+1:FORI=WTOXSTEP8:POKEI,Y:NEXT:SYSS:RETURN
380 Q=RND(1)*5:FORI=1TOQ:POKE8184+8*(INT(RND(1)*40)),RND(1)*FE:NEXT:SYSS:RETURN
390 FORI=WTOXSTEP8:POKEI,FE*RND(1):NEXT:SYSS:RETURN
400 FORI=WTOXSTEP8:POKEI,0:NEXT:POKE8352,FE*RND(1):SYSS:RETURN
410 IFI=1THENC1=C1+1:IFC1=16THENC1=0
420 IFI=2THENC2=C2+1:IFC2=16THENC2=0
430 CH=C1*16+C2:GOSUB580:RETURN
440 CO=CO+1:IFCO=16THENCO=0
450 GOSUB580:RETURN
460 G=G+1:IFG=16THENG=0
470 GOSUB580:RETURN
480 POKEV,27:POKEV+5,200:POKEV+7,21:POKEV+15,15:POKEV+16,1:POKE646,6:RETURN
490 F$="":PRINT"[147]":INPUT"  PATTERN TO SAVE";F$:IFF$=""THEN560
500 OPEN3,8,1,F$:FORI=WTOXSTEP8:PRINT#3,PEEK(I):NEXT:PRINT#3,CH:PRINT#3,CO
510 PRINT#3,G:PRINT#3,Q$:CLOSE3:PRINT"[147]":GOSUB580:RETURN
520 F$="":PRINT"[147]":INPUT"  PATTERN TO LOAD";F$:IFF$=""THEN560
530 OPEN3,8,0,F$:FORI=WTOXSTEP8:INPUT#3,J:POKEI,J:NEXT:INPUT#3,CH:INPUT#3,CO
540 INPUT#3,G:INPUT#3,Q$:GOSUB550:GOTO560
550 A=5887:FORI=1TO10:POKEA+I,VAL(MID$(Q$,I,1)):NEXT:RETURN
560 CLOSE3:GOSUB580:IFF$=""THENRETURN
570 SYSS:RETURN
580 POKE826,CH:SYST:POKE827,CO:SYS851:POKEV+15,G:POKEV+16,G:POKEV,59
590 POKEV+5,216:POKEV+7,24:RETURN
600 POKEV+15,15:POKEV+16,1:PRINTCHR$(142)"[147][159]"TAB(7)"INSTANT ART INSTRUCTIONS
610 [153]"STOP"[163]7)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
620 PRINT""TAB(7)"F1 - CYCLE COLOR 1
630 [153][163]7)"F3 - CYCLE COLOR 2
640 PRINTTAB(7)"F5 - CYCLE COLOR 3
650 [153][163]7)"F7 - CYCLE COLOR 4 & BORDER
660 PRINT""TAB(7)"^ - HI-RES SCREEN
670 [153][163]7)"V - VARIANT
680 PRINTTAB(7)"A - AUTOMATIC
690 [153][163]7)"P - PRINT
700 PRINTTAB(7)"S - SAVE
710 [153][163]7)"L - LOAD
720 PRINTTAB(7)"Q - QUIT
730 [153]""[163]7)"RETURN - NEW SCREEN
740 PRINT"[159]"TAB(7)"OTHER KEYS RETURN TO MENU
750 [153]"STOP"[163]7)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":[142]
760 [145][187](1)[172]3[170]1[141]410,440,460:[141]340
770 [139][194](198)[167][142]
780 [137]760
790 [141]480:[153]"LOAD"[163]7)"MAKE SURE PRINTER IS READY
800 PRINT""TAB(9)"AND PRESS ANY KEY. . .
810 [161]R$:[139]R$[178]""[167]810
820 [153]""[163]13)"PRINTING. . .":A$[178][199](10):[159]4,4,5:[157]4:[158]6069
830 [153]:[153]:[153]:[160]4:[141]580:[142]
840 C[178][181](16[172][187](1))[170]0:[153]C:[137]840